home *** CD-ROM | disk | FTP | other *** search
/ Building Homes of Our Own / Building Homes of our Own.iso / setup / data1.cab / Everything / working / houCons.dxr / interface_3_makeListOfMemberNames.ls < prev    next >
Encoding:
Text File  |  2002-09-25  |  494 b   |  24 lines
  1. on makeListOfMemberNames startMem, endMem, aLib
  2.   if voidp(aLib) then
  3.     beep()
  4.     return #NoCastLibParameter
  5.   end if
  6.   if voidp(endMem) then
  7.     beep()
  8.     return #NoEndMemberParameter
  9.   end if
  10.   if voidp(startMem) then
  11.     beep()
  12.     return #NoStartMemberParameter
  13.   end if
  14.   outList = []
  15.   repeat with x = startMem to endMem
  16.     thisName = member(x, aLib).name
  17.     if emptyString(thisName) then
  18.       next repeat
  19.     end if
  20.     append(outList, thisName)
  21.   end repeat
  22.   return outList
  23. end
  24.